home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / p4 / p4-1_2a.lha / p4-1.2a / contrib / simpglob.c < prev    next >
C/C++ Source or Header  |  1992-10-19  |  475b  |  34 lines
  1. #include "p4.h"
  2.  
  3. #define ASIZE 10
  4.  
  5. main(argc,argv)
  6. int argc;
  7. char **argv;
  8. {
  9.     int i;
  10.  
  11.     p4_initenv(&argc,argv);
  12.     if (p4_get_my_id() == 0)
  13.         p4_create_procgroup();
  14.  
  15.     slave();
  16.  
  17.     p4_wait_for_end();
  18.     p4_dprintf("exiting pgm\n");
  19. }
  20.  
  21. slave()
  22. {
  23. int i, n;
  24. double a[ASIZE];
  25.  
  26.     for (i=0; i < ASIZE; i++)
  27.     a[i] = (double) i;
  28.  
  29.     p4_global_op(44,(char *) a,ASIZE,sizeof(double),p4_dbl_sum_op,P4DBL);
  30.  
  31.     for (i=0; i < ASIZE; i++)
  32.     p4_dprintf("%4.1f\n",a[i]);
  33. }
  34.